* lisp/emacs-lisp/comp.el (comp-body-eff): Improve style.

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 8b8b111640a9dc2cc18615a57c5aaf116b45ab20..07b0ccee3cb62a95cece68feb10827f37d7588c4 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -1127,13 +1127,9 @@ When BODY is auto guess function name form the LAP byte-code
 name.  Otherwise expect lname fnname."
     (pcase (car body)
       ('auto
-       (list `(comp-emit-set-call-subr
-               ',(comp-op-to-fun op-name)
-               ,sp-delta)))
+       `((comp-emit-set-call-subr ',(comp-op-to-fun op-name) ,sp-delta)))
       ((pred symbolp)
-       (list `(comp-emit-set-call-subr
-               ',(car body)
-               ,sp-delta)))
+       `((comp-emit-set-call-subr ',(car body) ,sp-delta)))
       (_ body))))
 
 (defmacro comp-op-case (&rest cases)